-- card: 5645 from stack: in
-- bmap block id: 11352
-- flags: 0000
-- background id: 18894
-- name: Network Room
----- HyperTalk script -----
on openCard
  global env,service,holder,prodname4,prodname5,network1,sol
  put env into cd fld "CPU"
  put empty into cd fld "Protocol"
  put empty into cd fld "Protocol2"
  set hilite of bkgnd btn "Application Level" to false
  set hilite of bkgnd btn "Network Level" to true
  set hilite of bkgnd btn "Hardware Level" to false
  set hilite of bkgnd btn id 52 to false
  set hilite of bkgnd btn id 43 to false
  put "Network Level" into fld "Floorname"
  if env is "Mac" then
    put "Macintosh" && sol && "Room" into fld "Solname"
  else
    put env && sol && "Room" into fld "Solname"
  end if
  put env && "Network Services Room" & return & "click on the Macintosh" into fld "Tell"
  put card field (env && "Network Services") of card "Mac Grid" into holder
  if holder is empty
  then
  put return & "No" && env && "Solutions" & return & "installed in this version" into fld "Tell"
  exit openCard
end if
if service is empty then
  if env is "Digital" then put "File Service" into service
  if env is "IBM" then put "Terminal Emulation" into service
  if env is "Mac" then put "File Service" into service
  if env is "PC" then put "File Service" into service
  if env is "Tandem" then put "Terminal Emulation" into service
  if env is "UNIX" then put "File service" into service
  if env is "Wang" then put "Terminal Emulation" into service
  if network1 <> empty then
    if network1 contains "File Transfer" then put "File Transfer" into service
    if network1 contains "CL/1" then put "File Service" into service
    if network1 contains "Client" then put "File Service" into service
    if network1 contains "Translation" then put "Translation" into service
    if network1 contains "Not" then put "Terminal Emulation" into service
  end if
end if
put service into cd fld "Service"
--∆ Set up side 1 data
put "Macintosh side:" & return into cd fld "Side1"
repeat with i = 1 to the number of lines of holder
  if item 3 of line i of holder contains service then
    if item 1 of line i of holder <> empty then
      put item 1 of line i of holder & return after cd fld "Side1"
    end if
  end if
end repeat
if line 2 of cd fld "Side1" is empty then
  put "No products of this type are installed in this version" after cd fld "Side1"
end if
if prodName4 <> empty then
  put prodname4 into fld "Prodname"
  set hilite of bkgnd btn id 43 to true
  put "click for product info" into fld "click"
end if
--∆ And now side two (the right)
put env & " side:" & return into cd fld "Side2"
repeat with i = 1 to the number of lines of holder
  if item 3 of line i of holder contains service then
    if item 2 of line i of holder <> empty then
      put item 2 of line i of holder & return after cd fld "Side2"
    end if
  end if
end repeat
if line 2 of cd fld "Side2" is empty then
  put "No products of this type are installed in this version" after cd fld "Side2"
end if
if prodName5 <> empty then
  put prodname5 into fld "Prodname2"
  set hilite of bkgnd btn id 52 to true
  put "click for product info" into fld "click2"
end if
pass openCard
end openCard

on closeCard
  hide cd fld "Side1"
  put empty into cd fld "Side1"
  hide cd fld "Side2"
  put empty into cd fld "Side2"
  put empty into fld "Prodname"
  put empty into fld "Prodname2"
  --put empty into cd fld "CPU"
  put "" into fld "click"
  put "" into fld "click2"
  set hilite of bkgnd btn id 43 to false
  set hilite of bkgnd btn id 52 to false
  pass closeCard
end closeCard

on clean
  put empty into cd fld "Protocol"
  put empty into cd fld "Protocol2"
  put empty into cd fld "Service"
  put empty into fld "Network"
  pass clean
end clean

on clean1
  global prodname4,prodname5,protocol,protcol1
  put empty into cd fld "Protocol"
  put empty into cd fld "Protocol2"
  put empty into cd fld "Service"
  put empty into fld "Prodname"
  put empty into fld "Prodname2"
  set hilite of bkgnd btn id 52 to false
  set hilite of bkgnd btn id 43 to false
  put empty into prodname4
  put empty into prodname5
  put empty into protocol
  put empty into protocol1
end clean1


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=305 bottom=31
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global env,service,hall,currentfloor,lastRoom
  put env && service into lastRoom
  put "2  Network Services" into currentfloor
  set lockscreen to true
  go to cd hall
  unlock screen with zoom out
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Exit to Hall" & return & "click to go to hall" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=401 top=145 right=170 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: CPU


-- part 63 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=242 top=67 right=84 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: Service
----- HyperTalk script -----
on mouseEnter
  put "Current" & return & "Network Service" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave



-- part 67 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=57 top=85 right=119 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Protocol
----- HyperTalk script -----
on mouseEnter
  put "Product Protocol" & return & "go to Hardware for info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 69 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=179 top=217 right=238 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Click for Network Services
----- HyperTalk script -----

on mouseEnter
  ChangeCurs 6069
  put "Macintosh Services Chooser" & return & "click to change service" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  Global prodname4,prodname5,protocol
  get the loc of me
  put it into MLoc
  Put "Zoomer " & MLoc & "," & MLoc & "," & "254,151,278,166" into Zoomy
  do Zoomy
  Zoomer 254,151,278,166,8,4,507,336
  unlock screen with dissolve
  set cursor to busy
  put "" into fld "Prodname"
  put "" into fld "Prodname2"
  hide cd fld "Side1"
  hide cd fld "Side2"
  set hilite of bkgnd btn id 43 to false
  set hilite of bkgnd btn id 52 to false
  put empty into cd fld "Side1"
  put empty into cd fld "Side2"
  put empty into cd fld "Protocol"
  put empty into cd fld "Protocol2"
  put "" into fld "click"
  put "" into fld "click2"
  put empty into prodname4
  put empty into prodname5
  put empty into protocol
  set lockscreen to true
  push card
  go to cd "White"
  go to cd "Chooser"
  set cursor to hand
  unlock screen with dissolve
end mouseUp




-- part 71 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=241 top=85 right=123 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Protocol2
----- HyperTalk script -----
on mouseEnter
  put "Product Protocol" & return & "go to Hardware for info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

on mouseUp
  global Help
  if Help then exit mouseUp
  send mouseUp to bkgnd btn "Hardware Level"
end mouseUp


-- part 74 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=78 top=198 right=210 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: services
----- HyperTalk script -----
on mouseUp
  global Help
  if Help then exit mouseUp
  send mouseUp to btn id 69
end mouseUp

on mouseEnter
  global Help
  if Help then
    put "'chooser' Button" & return & return & "Click this button to go to the Chooser screen" && "and select other network services" into field explainer
  else
    ChangeCurs 13000
    put "'Chooser' Button" & return & "click to change service" into fld "Tell"
  end if
end mouseEnter

on mouseLeave
  global Help
  if help then
  else
    changeCurs 6069
    put empty into fld "Tell"
  end if
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 75 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=410 top=198 right=210 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: services
----- HyperTalk script -----
on mouseUp
  global Help
  if Help then exit mouseUp
  send mouseUp to btn id 70
end mouseUp

on mouseEnter
  global Help
  if Help then
    put "'chooser' Button" & return & return & "Click this button to go to the Chooser screen" && "and select other network services" into field explainer
  else
    ChangeCurs 13000
    put "'Chooser' Button" & return & "click to change service" into fld "Tell"
  end if
end mouseEnter

on mouseLeave
  global Help
  if help then
  else
    changeCurs 6069
    put empty into fld "Tell"
  end if
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 62 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=59 top=127 right=210 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh
----- HyperTalk script -----
on mouseUp
  set the visible of cd fld "Side1" to not the visible of cd fld "Side1"
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Macintosh System" & return & "click to configure network" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave


-- part 68 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=361 top=124 right=213 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Host
----- HyperTalk script -----
on mouseUp
  set the visible of cd fld "Side2" to not the visible of cd fld "Side2"
end mouseUp

on mouseEnter
  global env
  changeCurs 6069
  put "Show" && env && "Products" & return & "click to select product" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave


-- part 83 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=100 top=67 right=84 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: Title


-- part 84 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=151 top=116 right=208 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask


-- part 64 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=28 top=86 right=181 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side1
----- HyperTalk script -----
on mouseUp
  global holder,prodname4,protocol
  put selectionAndHiliter() into cardline
  put line cardline of me into prodname4
  if prodname4 contains "side" then
    hide cd btn "side1Hiliter"
    hide me
    put empty into prodname4
    exit mouseup
  end if
  if prodname4 is empty or prodname4 contains "no Products" or prodname4 contains "this version" then
    answer "Empty Choice!" with "Try Again"
    exit mouseup
  end if
  put prodname4 into fld "Prodname"
  set hilite of bkgnd btn id 43 to true
  put "click for product info" into fld "click"
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname4 then
      put item 6 of line i of holder into dotnames
      put offset("•",dotnames) into num
      if num is empty or num is 0 then
        put "Click below left CPU to see more about" && prodname4 into cd fld "Protocol"
        exit repeat
      else
        put char 1 to (num - 1) of dotnames into protocol
        put prodname4 && "uses " & protocol into cd fld "Protocol"
      end if
    end if
  end repeat
  hide cd btn "side1Hiliter"
  hide me
end mouseUP

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  changeCurs 6069
  put "Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 65 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=242 top=86 right=181 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side2
----- HyperTalk script -----
on mouseUp
  global holder,prodname5,protocol1
  put selectionAndHiliter() into cardline
  put line cardline of me into prodname5
  if prodname5 is empty or prodname5 contains "no Products" or prodname5 contains "this version" then
    answer "Empty Choice!" with "Try Again"
    put empty into prodname5
    exit mouseup
  end if
  if prodname5 contains "side:" then
    hide cd btn "side2Hiliter"
    hide me
    exit mouseup
  end if
  put prodname5 into fld "Prodname2"
  set hilite of bkgnd btn id 52 to true
  put "click for product info" into fld "click2"
  repeat with i = 1 to the number of lines of holder
    if item 2 of line i of holder is prodname5 then
      put item 6 of line i of holder into dotnames
      put offset("•",dotnames) into num
      if num is empty or num is 0 then
        put "Click below left CPU to see more about" && prodname5 into cd fld "Protocol2"
        exit repeat
      else
        put char 1 to (num - 1) of dotnames into protocol1
        put prodname5 && "uses " & protocol1 into cd fld "Protocol2"
      end if
    end if
  end repeat
  hide cd btn "side2Hiliter"
  hide me
end mouseUP

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  global env
  changeCurs 6069
  put env && "Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 81 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=243 top=123 right=136 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: side2Hiliter


-- part 80 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=29 top=98 right=112 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: side1Hiliter


-- part contents for background part 41
----- text -----
Macintosh to Digital Network Services Room

-- part contents for background part 68
----- text -----
Network Level

-- part contents for card part 83
----- text -----
Current Service:

-- part contents for card part 7
----- text -----
Digital

-- part contents for card part 63
----- text -----
Mail Service